


* FIGURE 5

cd "$data"
use "data1.dta", replace

gen lr_labour = leftright6 if pid6==2

eststo M2: regress shiftw6w7_LR i.Labouridentification6_##i.leftright6, robust // labour versus independents
margins, dydx(Labouridentification6_) at(leftright6=(0 1 2))
marginsplot, plot1opts(color(cranberry%50) lpattern(shortdash)) recast(scatter) recastci(rspike) level(95) yline(0, lpattern(dash)) ci1opts(color(cranberry%50)) title("", size(3.5)) ytitle("AME of Labour identification on shift in left-right", size(3.5)) xtitle("ideological self-placement in wave 6", size(3.5)) legend(off) xscale(range(-0.25 2.25)) addplot(histogram lr_labour, percent color(cranberry%30) yaxis(2) ytitle("percent", size(2) axis(2)) yscale(range(0(10)100) axis(2) alt))

graph save "${figures}/figure5.gph", replace 

